home *** CD-ROM | disk | FTP | other *** search
/ 3D Games (Spidla) / 3dhry2.iso / Sokoban 3D Deluxe 1.0 / start.bb < prev    next >
Encoding:
Text File  |  2003-03-17  |  1.1 KB  |  49 lines
  1. SetGfx()
  2.  
  3. Function SetGfx()
  4.     Print info1$:Print info2$:Print info3$:Print info4$:Print
  5.     If Windowed3D()
  6.         yn$=Input$( "Use windowed mode?" )
  7.         If Left$( Lower$( yn$ ),1 )="y"
  8.             HidePointer
  9.             Graphics3D 640,480,0,2
  10.             SetBuffer BackBuffer()
  11.             Return
  12.         EndIf
  13.     EndIf
  14.     
  15.     Print ""
  16.     Print "Display drivers:"
  17.     Print "----------------"
  18.     For k=1 To CountGfxDrivers()
  19.         Print k+":"+GfxDriverName$(k)
  20.     Next
  21.     Print
  22.     
  23.     If CountGfxDrivers()>1
  24.         Repeat
  25.             driver=Input$( "Display driver (1-"+CountGfxDrivers()+"):" )
  26.         Until driver>=1 And driver<=CountGfxDrivers()
  27.         SetGfxDriver driver
  28.     EndIf
  29.     
  30.     cnt=CountGfxModes3D()
  31.     If cnt=0 Print "No 3D Graphics modes detected.":WaitKey:End
  32.     
  33.     Print ""
  34.     Print "Display modes:"
  35.     Print "--------------"
  36.     For k=1 To CountGfxModes3D()
  37.         Print k+":"+GfxModeWidth(k)+","+GfxModeHeight(k)+","+GfxModeDepth(k)
  38.     Next
  39.     
  40.     Repeat
  41.         mode=Input$( "Display Mode (1-"+cnt+"):" )
  42.     Until mode>=1 And mode<=cnt
  43.     
  44.     ScreenHeight = GfxModeHeight(mode)
  45.     ScreenWidth = GfxModeWidth(mode)
  46.     Graphics3D GfxModeWidth(mode),GfxModeHeight(mode),GfxModeDepth(mode),1
  47.     SetBuffer BackBuffer()
  48.     
  49. End Function